# TODO: Add comment
# 
# Author: Forever
###############################################################################
library(hydroGOF)
library(clusterSim)



inputPath = "C:/Users/Forever/Desktop/temp_pm.csv"
data=read.csv(inputPath)
data=subset(data,data$station!=3)

samples = nrow(data)
attach(data)

model_r1 = cor(pm1,sat_temp)
r1= round(model_r1*model_r1,3)

model_r2 = cor(pm25,sat_temp)
r2= round(model_r2*model_r2,3)

model_r3 = cor(pm10,sat_temp)
r3= round(model_r3*model_r3,3)

model_r4 = cor(cem_temp,sat_temp)
r4= round(model_r4*model_r4,3)


samples
r1
r2
r3
## r4

